home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Aminet 31
/
Aminet 31 (1999)(Schatztruhe)[!][Jun 1999].iso
/
Aminet
/
util
/
rexx
/
WW-Rech_kor.lha
/
DIN5008_N299220
next >
Wrap
Text File
|
1999-02-25
|
4KB
|
214 lines
/* Geschäftsbrief nach DIN 5008 */
/*
** Copyright by Friedrich Siekmeier, all Rights reserved.
** eMail: 05715090055-0001@btxgate.de oder la.paloma@t-online.de
** Kaufmannsbrede 1, 32429 Minden, Tel.: (0571) 52052
** Version 2.99220
** Dieses Programm ist Cardware. Persönliche Anpassung nach Rücksprache möglich!
** Benutzung des Programms auf eigene Gefahr. Für jegliche Beschädigung wird keinerlei Haftung übernommen!
** ;-))
*/
OPTIONS RESULTS
IF ~SHOW(L,"rexxreqtools.library") THEN DO
ADDLIB("rexxreqtools.library",0,-30,0)
END
IF ~SHOW(P,"WORDWORTH.1") THEN DO
ADDRESS WORDWORTH.2
END
OPEN FILENAME 'WordWorth:Documents/Templates/Normal'
DOCUMENT A4 '2.5' '2.5' '1.4' '0.64'
FITWIDTH
PARAGRAPH 0 0 0 LEFT AUTO SINGLE NONE 4
FONT NAME 'Shannon Book' SIZE 10
PLAIN
SETTAB LEFT '14.5'
TEXT 'XYZ-GmbH & Co.KG Benutzerstraße XX'
NEWPARAGRAPH
TEXT 'Benutzerfirma 00000 Benutzerstadt'
NEWPARAGRAPH
TEXT ' Tel.: (0571) 5 20 52'
NEWPARAGRAPH
TEXT ' Fax: (0571) 5 09 00 55'
NEWPARAGRAPH
NEWPARAGRAPH
PARAGRAPH 0 0 0 LEFT AUTO SINGLE NONE 4
FONT NAME 'Shannon Book' SIZE 6
SINGLEUNDERLINE
TEXT 'Benutzerfirma, Benutzerstraße XX, 00000 Benutzerstadt'
NEWPARAGRAPH
PARAGRAPH 0 0 0 LEFT AUTO SINGLE NONE NONE
FONT NAME 'Shannon Book' SIZE 12
PLAIN
/*----------------------------*/
KAW = rtezrequest('Neukunde?','Ja|_Nein')
IF KAW = 0 THEN CALL "Kunden:Auswahl"
IF KAW = 1 THEN CALL NEUKUNDE
/*----------------------------*/
TABS
NEWPARAGRAPH
NEWPARAGRAPH
NEWPARAGRAPH
NEWPARAGRAPH
NEWPARAGRAPH
SETTAB LEFT '6.5'
SETTAB LEFT '12.5'
SETTAB LEFT '16.51'
PARAGRAPH 0 0 0 LEFT AUTO SINGLE NONE 4
/*Jetzt kommt die Bezugszeile im Brief.*/
FONT NAME 'Shannon Book' SIZE 7
PLAIN
TEXT 'Ihre Nachricht / Zeichen '
TEXT 'Unsere Nachricht / Zeichen '
TEXT 'Durchwahl '
/* WIZARDREQ TITLE 'Standort' LABEL 'Bitte Ihren Standortnamen eingeben:' LABEL '' TEXTBOX 1 'Or_t:' BUTTON 1 '_Ok' BUTTON '-1' 'A_bbruch'
IF RESULT = -1 THEN DO
CLOSE FORCE
END
WIZARD_GETTEXTBOX 1
Standort = RESULT
TEXT Standort */
TEXT '00000 Benutzerstadt'
NEWPARAGRAPH
WIZARDREQ TITLE 'Ihr Zeichen' LABEL 'Bitte Ihre Zeichen, Ihr Datum eingeben:' LABEL '' TEXTBOX 1 '_Zeichen/Datum:' BUTTON 1 '_Ok' BUTTON '-1' 'A_bbruch'
IF RESULT = -1 THEN DO
CLOSE FORCE
END
WIZARD_GETTEXTBOX 1
Sign = RESULT
TEXT Sign
TEXT ' '
WIZARDREQ TITLE 'Unser Zeichen' LABEL 'Bitte unsere Zeichen, unser Datum eingeben:' LABEL '' TEXTBOX 1 '_Zeichen/Datum:' BUTTON 1 '_Ok' BUTTON '-1' 'A_bbruch'
IF RESULT = -1 THEN DO
CLOSE FORCE
END
WIZARD_GETTEXTBOX 1
USign = RESULT
TEXT USign
TEXT ' (0571) 5 20 52 '
INSERTDATE
NEWPARAGRAPH
NEWPARAGRAPH
NEWPARAGRAPH
FONT NAME 'Shannon Book' SIZE 12
PLAIN
WIZARDREQ TITLE 'Betreff' LABEL 'Bitte Ihren Betreff eingeben:' LABEL '' TEXTBOX 1 'Be_treff:' BUTTON 1 '_Ok' BUTTON '-1' 'A_bbruch'
IF RESULT = -1 THEN DO
CLOSE FORCE
END
WIZARD_GETTEXTBOX 1
Btreff = RESULT
TEXT Btreff
NEWPARAGRAPH
NEWPARAGRAPH
NEWPARAGRAPH
DRAWLINE 1 '0' '9.43' '1' '9.43' '1' 'Schwarz'
DRAWLINE 1 '0' '14.55' '0.5' '14.55' '0.5' 'Schwarz'
DRAWLINE 1 '0' '19.86' '1' '19.86' '1' 'Schwarz'
EXIT
/*----------------------------*/
NEUKUNDE:
/*Vorbereitung der Dateneingabe in String-Box für die Empfängerdaten.*/
WIZARDREQ TITLE 'Briefanschrift' LABEL '' TEXTBOX 1 'Zustell_vermerk:' TEXTBOX 2 '_Empfänger:' TEXTBOX 3 '_Zusatz:' TEXTBOX 4 '_Straße:' TEXTBOX 5 'Post_fach:' TEXTBOX 6 '_Plz:' TEXTBOX 7 'O_rt:' BUTTON 1 '_Ok' BUTTON '-1' 'A_bbruch'
/*Sollte es zu einem Fehler kommen, dann wird durch Betätigen des Abbruch-Schalters das Arbeitsblatt zum Standardblatt wieder aufbereitet.*/
IF RESULT = -1 THEN DO
CLOSE FORCE
END
/*Ausgabe der Empfängerdaten mit Plazierung im Brief.*/
WIZARD_GETTEXTBOX 1
Letter = RESULT
TEXT Letter
NEWPARAGRAPH
WIZARD_GETTEXTBOX 2
Owner = RESULT
TEXT Owner
NEWPARAGRAPH
WIZARD_GETTEXTBOX 3
Plus = RESULT
TEXT Plus
NEWPARAGRAPH
WIZARD_GETTEXTBOX 4
Road = RESULT
TEXT Road
WIZARD_GETTEXTBOX 5
Post = RESULT
TEXT Post
NEWPARAGRAPH
NEWPARAGRAPH
WIZARD_GETTEXTBOX 6
Number = RESULT
TEXT Number
TEXT ' '
BOLD
SINGLEUNDERLINE
WIZARD_GETTEXTBOX 7
Town = RESULT
TEXT Town
RETURN